home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
solution8.8
< prev
next >
Wrap
Text File
|
2007-02-28
|
394b
|
18 lines
0010 TOTAL:=0
0020 FOR MAN:=1 TO 4 DO
0030 COM:=0
0040 READ NUM,ITEM
0050 WHILE NUM>0 DO
0060 COM:=NUM*ITEM+COM
0070 READ NUM,ITEM
0080 ENDWHILE
0090 COM:=COM/10
0100 PRINT "COMMISSION FOR SALESMAN";MAN;"IS";COM
0110 TOTAL:=TOTAL+COM
0120 ENDFOR MAN
0130 PRINT "TOTAL IS";TOTAL
0140 DATA 2,6,3,15,7,54,-1,-1
0150 DATA 7,13,5,21,13,83,6,94,-1,-1
0160 DATA -1,-1
0170 DATA 8,11,7,34,11,60,-1,-1